;;; $Id: ao.sld 66 2012-07-19 16:05:17Z alan.watson.f $

(define-library (oaxaca ao)

  (export ao-initialize!)

  (import (scheme base))

  (import (oaxaca file)
          (oaxaca log)
	  (oaxaca wfc)
	  (oaxaca wfs))

  (begin

    (define (ao-initialize!)
      (log-info "initializing.")
      (when (not (wfc-initialized?))
        (error "the wfc is not initialized"))
      (wfc-idle!)
      (when (not (wfs-initialized?))
        (error "the wfs is not initialized"))
      (wfs-idle!)
      (log-info "finished initializing.")
      (values))))
